home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / arc / XFH / src / Lib / dosalloc.c < prev    next >
C/C++ Source or Header  |  1992-12-15  |  460b  |  31 lines
  1. /* 'dosalloc.c' - dos-type allocation/deallocation. */
  2.  
  3. #include <exec/types.h>
  4. #include <exec/memory.h>
  5. #include <proto/exec.h>
  6.  
  7. #include <dossupport.h>
  8.  
  9.  
  10. void *dosalloc(long size){
  11.    long *mem;
  12.    
  13.    if(!(mem=AllocMem(size+=4, MEMF_PUBLIC|MEMF_CLEAR )))
  14.       return 0L;
  15.    
  16.    *mem++ = size;
  17.    return mem;
  18. }
  19.  
  20.  
  21. void dosfree(void *mem){
  22.    register long *mem2=mem;
  23.    
  24.    if(mem2){
  25.       --mem2;
  26.       FreeMem(mem2, *mem2);
  27.    }
  28. }
  29.  
  30. /* End of dosalloc.c */
  31.